home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / U-Z / WindowScript™.Demo / WindowScript™ 1.0 Working Model / WindowScript™ 1.0 Working Model.rsrc / LENS_10742_ProgressBox.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  2.1 KB  |  50 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 205,144,435,234
  4. Style: Windoid
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 90,90
  10. MaxSize: 230,230
  11. Name: ProgressBox
  12. Script: -- Example by Alan Pabst, Heizer Software¬¨--on windowEvent  wdID,wdName,objNo,objName,objValue¬¨¬¨if objValue="Open" then ¬¨  wsSet wdID,"ProgressBox","Height", "90"¬¨  ¬¨else if objValue="Close" then ¬¨  ¬¨else if objValue="Suspend" then ¬¨  ¬¨else if objValue="Resume" then ¬¨  ¬¨else if objValue="CloseBox" then ¬¨  ¬¨else if objValue="ZoomBox" then ¬¨  ¬¨else if objValue="GrowBox" then ¬¨  ¬¨else if objValue="TitleBar" then ¬¨  ¬¨end if¬¨¬¨--end windowEvent
  13.  
  14. ItemType: PUSH
  15. Rect: 16,55,96,75
  16. Name: Close
  17. CancelItem: TRUE
  18. AutoClose: TRUE
  19.  
  20. ItemType: PUSH
  21. Rect: 141,55,213,75
  22. Name: Scan
  23. DefaultItem: TRUE
  24. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨wsSet wdID,"Cancel","Disabled", "true"¬¨wsSet wdID,"5","Text", ""¬¨put empty into listHolder¬¨lock screen¬¨put the number of this cd into returnPoint¬¨put the number of cards into x¬¨go cd 1¬¨wsSet wdID,"3","Max", x¬¨repeat with i = 1 to x¬¨  wsSet wdID,"3","Value", i¬¨  put the short name of this cd&return after listHolder¬¨  go next cd¬¨end repeat¬¨beep¬¨go to card returnPoint¬¨wsSet wdID,"3","Value", "0"¬¨wsSet wdID,"Cancel","Disabled", "FALSE"¬¨unlock screen¬¨wsSet wdID,"5","Text", listHolder¬¨wsSet wdID,"ProgressBox","Height", "170"¬¨¬¨--end mouseUp
  25.  
  26. ItemType: CNTL
  27. Rect: 17,9,217,20
  28. BlackColor: 0,0,-26215
  29. Name: Untitled
  30. Style: 320
  31. Min: 0
  32. Max: 2
  33. Value: 0
  34. Step: 1
  35. Leap: 10
  36.  
  37. ItemType: PICT
  38. Rect: 14,21,224,37
  39. Name: progressO
  40.  
  41. ItemType: LIST
  42. Rect: 8,103,224,169
  43. Text: 
  44. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨put the name of this card into imHere¬¨get wsGet(wdID,"5","selectionText")¬¨if it = empty then ¬¨  beep¬¨end if¬¨if it ‚↠empty then¬¨  put it into goTo¬¨  if goTo ‚↠imHere then¬¨    if word 1 of goTo = "card" then ¬¨      go to goTo¬¨    else¬¨      go to card goTo¬¨    end if¬¨  end if¬¨end if¬¨--end mouseUp
  45.  
  46. ItemType: LBL
  47. Rect: 8,89,179,102
  48. TextFont: Geneva
  49. TextSize: 10
  50. Text: Click on a name to go to that card...